Option Explicit
Sub H_Sample007()
    'ϥΦbH_Sample002s@XӪϪ
    Dim myCht As Chart
    Dim mySht As Worksheet
    Dim myStr As String
    Set mySht = ThisWorkbook.Worksheets(1)		'Ϫ
    Set myCht = mySht.ChartObjects(mySht.ChartObjects.Count).Chart
    With myCht.SeriesCollection(1).Trendlines.Add _
        (Type:=xlLinear, DisplayEquation:=True)
        myStr = .DataLabel.Characters.Text
        .Delete
    End With
    MsgBox myStr
    Set mySht = Nothing						'
    Set myCht = Nothing
End Sub
